# R 语言 web数据[爬虫]
library("RCurl");
library("XML");
library("stringr");
library("plyr")

# 定义目标地址
url <- "https://www.geos.ed.ac.uk/~weather/jcmb_ws/";

# 发送请求
html <-  getURL(url);

result <- htmlTreeParse( html ,encoding="GBK");
items = (getNodeSet(result,"/html/body/table"))
print( items )
# filenames <- links[str_detect(links,"JCMB_2015")]
